home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 WWD 1.xpl < prev    next >
Text File  |  2004-01-16  |  2KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Word"
  5. "NAME"="SQL Query Warning"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Warn before executing SQL commands"
  9. "DESCRIPTION 1"="When you are using a Word document that has an embedded SQL Command in it (for example, for a mail merge document) you will receive a security warning message:"
  10. "DESCRIPTION 2"=""Opening this document will run the following SQL commandà" "
  11. "DESCRIPTION 3"="If you want to turn this message off since you often use SQL Commands in your documents, simply uncheck this feature here."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="Visit http://www.x-setup.net/"
  16. "COMMENT 2"="See: http://support.microsoft.com/?kbid=825765"
  17.  
  18.  
  19. 'Declaration of some constants
  20. sPCheck="HKCU\Software\Microsoft\Office\11.0\Word\"
  21.     sV1="HKCU\Software\Microsoft\Office\11.0\Word\Options\SQLSecurityCheck" 
  22.  
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.    i=RegReadValue(sV1)
  26.    if i<>0 then SetUIElement 1,true
  27. else
  28.    Disable()
  29. end if
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36. 'Called when the Plugin should apply the changes
  37. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  41.  else
  42.     Call RegWriteValue(sV1,0,2)
  43.  end if
  44.  
  45.  
  46. END SUB
  47.  
  48. 'Called when the Plugin is about to be removed from memory
  49. SUB Plugin_Terminate
  50. END SUB
  51.